﻿Public Class EmeklilikOdemeYerleri
	Inherits ProcessReport

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Text = "Emeklilik Ödeme Yerleri"
				InitialHelp = "Bölge seçimi yapın."
				AddCombo("@Bolge", "Bölge", "%,TÜMÜ|LEFKOŞA|GİRNE|MAĞUSA|İSKELE|GÜZELYURT|LEFKE", "width=10;nl", "TÜMÜ")
			Case EventType.ValidateForm
				Rs = Emeklilik.OdemeYeri.Liste(Remote, Input("bolge"))
				Report.Exports = True
				e.Result = True
			Case EventType.Export
				Rs.Export("EMEKLİLİK MAAŞ ÖDEME YERLERİ LİSTESİ")
			Case EventType.ReportHeader
				Report.PrintHeader("EMEKLİLİK MAAŞ ÖDEME YERLERİ LİSTESİ")
			Case EventType.PageHeader
				If Not Input("bolge") = "%" Then Report.PrintPageHeader("BÖLGE : " & Input("bolge"))
				Report.SetColumns("Kod;Adı;Banka No;Banka Adı;B.Türü;İlçe", "2;7;2;7;3;4", "c;l;c;l;l;l", "--")
			Case EventType.ReportDetail
				Do Until Rs.EOF
					Report.Print(Rs("odeyerkod"), Rs("acik"), Rs("bankano"), Rs("bankaadi"), Rs("turu"), Rs("bolge"))
					Rs.MoveNext()
				Loop
		End Select
	End Sub


End Class
